home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 July / 1994-07b.d64 / calc restore (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  477b  |  23 lines
  1. 5 poke646,0: printchr$(147):rem   cursor color and clear screen
  2. 10 rem calculated restore line             - don't edit line 30 !
  3. 20 :
  4. 30 x$=" [168] [138][173][160]l[140][160][183][140][169][183]@[168][140]  [166][162][181]_[168][166]_[208][136][202][138]8l$[168]"
  5. 40 :
  6. 50 sys45195x$:x=peek(780)+256*peek(781):vg=peek(x+1)+256*peek(x+2)
  7. 100 rem demo
  8. 110 fori=1to10
  9. 120 x=int(rnd(0)*10)+520:print:print"reading from line"x"...":sys vg,x
  10. 130 readx:ifx<999thenprintx;:goto130
  11. 140 forj=1to800:next:next:end
  12. 520 data 520
  13. 521 data 521
  14. 522 data 522
  15. 523 data 523
  16. 524 data 524
  17. 525 data 525
  18. 526 data 526
  19. 527 data 527
  20. 528 data 528
  21. 529 data 529
  22. 530 data 999
  23.